#变量使用

$var = 100;

print("this is a variables $var\n");

@names = ("daiqianying","lile","lizhiang");

print("Name array in index 0 is $names[0]\n");

$names[0] = "yangruimin";

print("edit name array index 0,now is $names[0]\n");

$names[2] = "李乐";

print("国际化支持测试 $names[2]\n");

%data = ('John Paul', 45, 'Lisa', 30, 'Kumar', 40);

print "\$data{'John Paul'} = $data{'John Paul'}\n";
print "\$data{'Lisa'} = $data{'Lisa'}\n";
print "\$data{'Kumar'} = $data{'Kumar'}\n";

@namecopy = @names;

$size = @names;

print "show all name : @namecopy\n";

print "Number of names is $size\n";

